#!/usr/bin/perl -w # for syntax highlighting
# CSS-V1

use gri_secmgr qw(get_cookie_value got_cookie redirect_header);
use gri_database;
use Data::Dumper;
use MIME::Base64;

# 
# Show all available sections that can be deleted or modified.
# We use the action to set the appropriate link...
#

use Data::Dumper;

sub mm_form_docrepos_group_delete_do($) {
my $group=shift;

	my $group2=hex_to_string($group);

	my $db_dir=$::GRI_FRONTEND->get_global_directory("database");
	my $docrepos=$::GRI_FRONTEND->get_global_directory("docrepos");
	my $DB=new gri_database("$db_dir/gri.db");

	# The gri_database routines do all the hardware for us...

	$DB->remove_group(group => $group2);

	# After doing this we re-direct to the admin page...
	my $link=link_to_str("","","/admin_page","");
	redirect_header(path => $link);
	exit(0);
}

# vim: ts=4:sw=4
